args = inputbox("grid=?",args,"20")
Application.ModelessCmd("g" & args)
Application.ModelessCmd("gd" & args)